(define-module (utils))


(define-public debug-print
  (lambda* (#:key (output-port (current-output-port)) . msgs)
    (let loop ([remaining msgs])
      (cond
       [(null? remaining) (display "")]
       [else
        (display
         (simple-format #f "~a\n" (car remaining))
         output-port)
        (loop (cdr remaining))]))))
